          SUBROUTINE (AUTHKEYS,CTRL.SETTINGS)
** Version# 3.0002[1] - 10/13/2015 - 11:31am - TSMITH - eclipse
** Copied from BP PRC.GP.PREVIEW.INIT Version# 3 - 09/09/2008 - 03:20pm - SPORTER - main

*** Subroutine: PRC.GP.PREVIEW.INIT
*-------------------------------------------------------------------------*
*** Simple initialization routine to load user authorization keys and
*** control record settings
*-------------------------------------------------------------------------*
*** AUTHKEYS      - Authorizatin keys                            [OUT]
*** CTRL.SETTINGS - Control record settings                      [OUT]
*-------------------------------------------------------------------------*
*** Common Variables: None used
*-------------------------------------------------------------------------*
          CHECK.KEY 'COGS.VIEW',GP.OK
          CHECK.KEY 'COST.VIEW',CT.OK

          AUTHKEYS = ''
          AUTHKEYS<1,1> = GP.OK
          AUTHKEYS<2,1> = CT.OK

          *READ GP.CONTROL FROM CTRLFILE,'GP.PREVIEW' ELSE
             GP.CONTROL = ''
             GP.CONTROL<1,1,1> = 100
             GP.CONTROL<1,1,2> = 0
             GP.CONTROL<1,1,3> = "0"
          *END

          CTRL.SETTINGS = ''
          CTRL.SETTINGS<1> = GP.CONTROL
          RETURN
*-------------------------------------------------------------------------*
!TSMITH~10/13/15~11:31
